Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/ISSUE08/EXCEPT/HANDLER.PAS

Pascal/Delphi Source File | 1996-01-05 | 211 b | 7 lines

procedure TForm1.OurHandler(Sender: TObject; E: Exception);
begin
  if MessageDlg(E.message + #13 + ' Continue anyway?', mtError,
               [mbYes,mbNo], 0) = mrNo then
    Application.Terminate
end;